View(df)
View(df)
load("Clean_data/df_multiparty.RData")
load("/Users/chongchen/Dropbox/Diplomacyandterrorism/Clean_data/df_multiparty.RData")
View(df_multiparty)
View(df_multiparty)
View(df)
names(df)
library(dplyr)
df <-- df %>% select(rebels_count, everything())
View(df)
df <- df %>% select(rebels_count, everything())
names(df_multiparty)
View(df)
load("/Users/chongchen/Dropbox/Diplomacyandterrorism/Code_backup/df.RData")
df$multiparties_id
